home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
351-375
/
disk_355
/
tracksalve
/
source
/
explain.a
< prev
next >
Wrap
Text File
|
1992-05-06
|
3KB
|
82 lines
*
* explain.a - Copyright 1990 D.W.Reisig
*
* # date by Comment
* -- --------- ----- ---------------------
* 0 29-Oct-89 DWR Created for Tracksalve
* 1 10-Apr-90 DWR TrackSalve 1.3, more switches
*
* Program cmdline help
*
* nolist
ifnd IFILES
IFILES set 1
INCLUDE "exec/types.i"
INCLUDE "libraries/dos.i"
INCLUDE "libraries/dos_lib.i"
INCLUDE "call.i"
endc
* list
NEWLINE EQU $0a
CSECT text,0,0,1,2
XREF _ConOut,_DOSBase,_Pr
Func _Explain
lea.l ExplMsg1(pc),a0 Load introducer
bsr.s ConMsg Print
move.l _Pr(a4),a0 Load programname from cmdline
bsr.s ConMsg Print
lea.l ExplMsg2(pc),a0 Rest of the explain text
Func ConMsg,@ConMsg Print (a0) to the console (Not stdout)
movem.l d2/d3/a6,-(a7)
move.l a0,d2 String
beq.s ConMsgRtn No string..
moveq.l #-1,d3 Init length parameter
10$ addq.l #1,d3 Counter
tst.b (a0)+ String terminator?
bne.s 10$ No..
move.l _ConOut(a4),d1 Console file handle
move.l _DOSBase(a4),a6
jsr _LVOWrite(a6)
ConMsgRtn movem.l (a7)+,d2/d3/a6
rts
ExplMsg1
dc.b 'Syntax: ',0
ExplMsg2
dc.b ' {[!]<unit>|a {<unit>} {<Command>}}',NEWLINE
dc.b 'Function: Modify a Trackdisk device unit addressed by its unit number',NEWLINE
dc.b ' <no args> Show present status',NEWLINE
dc.b 'Units:',NEWLINE
dc.b ' 0-3 Unit(s) Succeeding commands are applied to listed units',NEWLINE
dc.b ' a All Succeeding commands are applied to all TD units',NEWLINE
dc.b ' ! Warning Suppress error if the following unit does not exist',NEWLINE
dc.b 'Commands:',NEWLINE
dc.b '<none> TD in RAM No special functions (.=default), improved reliability',NEWLINE
dc.b ' o Original Let TD execute in its original ROM code',NEWLINE
dc.b ' s SectorDisk Let Trackdisk only give errors from bad sectors',NEWLINE
dc.b ' t .TrackDisk Normal: Let TD give errors from bad tracks',NEWLINE
dc.b ' n NoClick Perform noclick on the unit(s)',NEWLINE
dc.b ' c .Click Normal: No noclick',NEWLINE
dc.b ' r ReadOnly Make unit read-only, simulate open disk-tab',NEWLINE
dc.b ' w .WriteEnable Normal: Unit is read/write according to disk-tab',NEWLINE
dc.b ' v Verify Read written track back and compare (vv, vvv)',NEWLINE
dc.b ' b .Believe Normal: Asume track is written well',NEWLINE
dc.b ' u Update Update track and stop motor after 5 sec idling',NEWLINE
dc.b ' e .ExtUpdate Normal: External update and motor off',NEWLINE
dc.b ' / Separator E.g. "0/2n" Units 0 and 2 in RAM, noclick only on 2',NEWLINE
dc.b ' h ? Explain If given (anywhere), no commands are executed',NEWLINE
dc.b 0
END